difeq Subroutine

public subroutine difeq(y, dydx, nv, x, htry, eps, yscal, hdid, hnext, derivs)

! зачем save ?????

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(inout)			::	y(nv)
real(kind=wp),	intent(in)			::	dydx(nv)
integer,	intent(in)			::	nv
real(kind=wp),	intent(inout)			::	x
real(kind=wp),	intent(in)			::	htry
real(kind=wp),	intent(in)			::	eps
real(kind=wp),	intent(inout)			::	yscal(nv)
real(kind=wp),	intent(inout)			::	hdid
real(kind=wp),	intent(inout)			::	hnext
procedure(Iderivs_func)				::	derivs